(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    100236,       3046]
NotebookOptionsPosition[     98695,       2990]
NotebookOutlinePosition[     99031,       3005]
CellTagsIndexPosition[     98988,       3002]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "u", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalEpsilon]1", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalEpsilon]2", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "t"}], "]"}], "+", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ",", "x"}], "]"}], " ", 
    "+", " ", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ",", "y"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalEpsilon]3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"c", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "t"}], "]"}], " ", 
       "+", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
          RowBox[{"c", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ",", "x"}], "]"}], " ",
        "+", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"v", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
          RowBox[{"c", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ",", "y"}], "]"}]}], 
      ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}], "^", 
        "2"}], " ", "+", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[CapitalPsi]", "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}], "^", 
        "2"}]}], ")"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
       "+", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], 
      ")"}], "*", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}], "*", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.517672466614179*^9, 3.517672552625784*^9}, {
  3.517672918281701*^9, 3.517673086154409*^9}, {3.51767324874226*^9, 
  3.517673324035425*^9}, {3.517673380697685*^9, 3.517673406475628*^9}, {
  3.517673799446719*^9, 3.517673808453699*^9}, {3.517674449666426*^9, 
  3.517674451930781*^9}, {3.517674505558932*^9, 3.517674521708819*^9}, {
  3.517676045635366*^9, 3.51767605288699*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "x"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "y"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "xx"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}], ",", 
     "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "yy"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}], ",", 
     "y"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "xy"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "x"}], "]"}], ",", 
     "y"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["\[CapitalPhi]", "t"], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"\[CapitalPsi]", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "t"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.517673410231968*^9, 3.517673493323885*^9}, 
   3.517673782226435*^9, {3.517673822284458*^9, 3.517673823169148*^9}, {
   3.517674207044587*^9, 3.51767423331767*^9}, {3.517676055251704*^9, 
   3.517676056960325*^9}, {3.51767892831387*^9, 3.517678935331942*^9}, {
   3.517678974550274*^9, 3.517678990199407*^9}, {3.517679237067358*^9, 
   3.517679238501905*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalLambda]1", "=", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"c", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{
       SubscriptBox["\[CapitalPhi]", "x"], "+", 
       SubscriptBox["\[CapitalPhi]", "y"]}], "]"}]}], " ", "+", " ", 
    RowBox[{
     FractionBox["\[CapitalPsi]", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[CapitalPhi]", "x"], "2"], "+", 
         SuperscriptBox[
          SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}], "2"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], 
        SubscriptBox["\[CapitalPhi]", "x"], 
        SubscriptBox["\[CapitalPhi]", "y"], 
        SubscriptBox["\[CapitalPhi]", "xy"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           SubscriptBox["\[CapitalPhi]", "x"], "2"], "-", 
          SuperscriptBox[
           SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          SubscriptBox["\[CapitalPhi]", "yy"], "-", 
          SubscriptBox["\[CapitalPhi]", "xx"]}], ")"}]}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]2", "=", 
   FractionBox[
    RowBox[{
     RowBox[{"4", " ", 
      SubscriptBox["\[CapitalPhi]", "x"], 
      SubscriptBox["\[CapitalPhi]", "y"], 
      SubscriptBox["\[CapitalPhi]", "xy"]}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["\[CapitalPhi]", "xx"], "-", 
        SubscriptBox["\[CapitalPhi]", "yy"]}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "x"], "2"], "-", 
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}]}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        SubscriptBox["\[CapitalPhi]", "x"], "2"], "+", 
       SuperscriptBox[
        SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}], "2"]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalLambda]3", "=", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "x"], "2"], "+", 
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}]}]]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.51767349726885*^9, 3.517673738267122*^9}, {
  3.517673779438215*^9, 3.517673795124621*^9}, {3.517673830049594*^9, 
  3.51767383588999*^9}, {3.517674414670711*^9, 3.517674427319698*^9}, {
  3.517677950142949*^9, 3.517677951620648*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CapitalLambda]1", " ", "\[CapitalEpsilon]1"}], "+", 
   RowBox[{"\[CapitalLambda]2", " ", "\[CapitalEpsilon]2"}], "+", 
   RowBox[{"\[CapitalLambda]3", " ", "\[CapitalEpsilon]3"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.517673741935807*^9, 3.517673768174769*^9}, {
  3.517673838985653*^9, 3.517673854099786*^9}, {3.517673949188646*^9, 
  3.517673954952401*^9}, {3.517674047640091*^9, 3.517674056374017*^9}, {
  3.517674265733082*^9, 3.517674267943162*^9}, {3.517674371793114*^9, 
  3.517674392059558*^9}, {3.517674542725939*^9, 3.517674546286606*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["v", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[CapitalPsi]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox[
               RowBox[{
                SuperscriptBox["\[CapitalPsi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[CapitalPsi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "2"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}]}], 
       ")"}], "/", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], "2"]}]}], 
    ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"c", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["v", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["c", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["c", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"c", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["v", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["u", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["c", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}]}], ")"}]}], 
  "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["v", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["u", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], ")"}], "/", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], 
    "2"]}]}]], "Output",
 CellChangeTimes->{
  3.517673770591415*^9, {3.517673855402283*^9, 3.517673913445416*^9}, 
   3.517673969914698*^9, 3.517674017735438*^9, {3.517674057077595*^9, 
   3.517674064585512*^9}, {3.517674251972492*^9, 3.517674275700236*^9}, {
   3.51767438080076*^9, 3.517674392893615*^9}, 3.517674430617565*^9, {
   3.517674530550954*^9, 3.517674557089668*^9}, 3.517674688632074*^9, 
   3.517676070477662*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A1", "=", 
     RowBox[{"Log", "[", 
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"B1", "=", 
     RowBox[{"u", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalChi]1", "=", 
     RowBox[{"v", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.517675233648622*^9, 3.517675294571164*^9}, {
  3.517675807431427*^9, 3.517675818280175*^9}, {3.517677301425296*^9, 
  3.517677302084246*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CapitalLambda]3", " ", "\[CapitalEpsilon]3"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"A1", ",", "t"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"\[CapitalChi]1", ",", "y"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"B1", ",", "x"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.517674884109848*^9, 3.517674899745725*^9}, {
  3.517675030195251*^9, 3.517675043834926*^9}, {3.517675183027292*^9, 
  3.517675205206483*^9}, {3.51767529807965*^9, 3.517675308591993*^9}, {
  3.517675488300984*^9, 3.517675501954408*^9}, {3.517675813404714*^9, 
  3.51767582037875*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"v", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["c", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["c", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]}], 
   RowBox[{"c", "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["\[CapitalPsi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["v", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[CapitalPsi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["\[CapitalPsi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["\[CapitalPsi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.517674892346186*^9, 3.517674911485225*^9}, 
   3.517675045830616*^9, {3.517675196320776*^9, 3.5176752069874*^9}, 
   3.51767531251662*^9, {3.517675491632855*^9, 3.517675502677286*^9}, 
   3.51767582098111*^9, 3.51767607464473*^9, 3.5176773053656*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalChi]2", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CapitalLambda]2", " ", "\[CapitalEpsilon]2"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"A2", ",", "t"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"X2", ",", "y"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"B2", ",", "x"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5176758263265*^9, 3.517675845242577*^9}, {
  3.517675903449022*^9, 3.517675929299734*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalPsi]", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
         RowBox[{
          SuperscriptBox["v", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], ")"}], "/", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{{3.517675924409524*^9, 3.517675935984392*^9}, 
   3.517678026286693*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalChi]3", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CapitalLambda]1", " ", "\[CapitalEpsilon]1"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"A3", ",", "t"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"\[CapitalChi]3", ",", "y"}], "]"}], "-", 
   RowBox[{"D", "[", 
    RowBox[{"B3", ",", "x"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.517676488768282*^9, 3.517676490402626*^9}, {
  3.517676557200523*^9, 3.517676593007782*^9}, {3.517676786796966*^9, 
  3.517676789278315*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["v", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"c", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "]"}]}], "+", 
    FractionBox[
     RowBox[{"\[CapitalPsi]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], "2"]]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.517676594638042*^9, 3.517676601817905*^9}, 
   3.517676790021462*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   RowBox[{"A1", "+", "A2", "+", "A3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{"B1", "+", "B2", "+", "B3", "+", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalChi]", "=", 
   RowBox[{
   "\[CapitalChi]1", "+", "\[CapitalChi]2", "+", "\[CapitalChi]3", "+", 
    RowBox[{
     RowBox[{"v", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"\[CapitalLambda]1", " ", "\[CapitalEpsilon]1"}], " ", "+", " ", 
   RowBox[{"\[CapitalLambda]2", " ", "\[CapitalEpsilon]2"}], " ", "+", " ", 
   RowBox[{"\[CapitalLambda]3", " ", "\[CapitalEpsilon]3"}], " ", "-", " ", 
   RowBox[{"D", "[", 
    RowBox[{"A", ",", "t"}], "]"}], " ", "-", " ", 
   RowBox[{"D", "[", 
    RowBox[{"B", ",", "x"}], "]"}], " ", "-", " ", 
   RowBox[{"D", "[", 
    RowBox[{"\[CapitalChi]", ",", "y"}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.517676943494201*^9, 3.517676998220194*^9}, {
  3.517677071096035*^9, 3.517677100529463*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"v", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["c", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], 
    RowBox[{"c", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]]}], "-", 
  RowBox[{
   SuperscriptBox["v", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "0", ",", "1"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"c", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["v", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["c", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], 
   RowBox[{"c", "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]], "-", 
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"0", ",", "1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"c", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["v", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"c", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "]"}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "]"}]}], "+", 
     FractionBox[
      RowBox[{"\[CapitalPsi]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox[
              RowBox[{
               SuperscriptBox["\[CapitalPsi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], "2"]]}], 
    ")"}]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["c", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}], 
   RowBox[{"c", "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"c", "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["v", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["c", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["c", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"c", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["v", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["u", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["c", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"c", "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}]}], ")"}]}], 
  "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"\[CapitalPsi]", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["v", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["u", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], ")"}], "/", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["\[CapitalPsi]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], 
    "2"]}]}]], "Output",
 CellChangeTimes->{3.517677105743977*^9, 3.517677308775158*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"num", " ", "=", " ", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["u", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
          RowBox[{
           SuperscriptBox["v", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}]}], " ", "+", 
    " ", 
    RowBox[{"\[CapitalPsi]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["v", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], " ", "+", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "2"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalPsi]", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["u", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
           RowBox[{
            SuperscriptBox["v", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"v", "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], ")"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5176780579115*^9, 3.517678132678781*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["\[CapitalPsi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
     RowBox[{
      SuperscriptBox["v", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
   RowBox[{
    SuperscriptBox["\[CapitalPsi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}]}], "+", 
  RowBox[{"\[CapitalPsi]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["v", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
  
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"\[CapitalPsi]", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["v", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[CapitalPsi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.517678134116585*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{"num", "/", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        SubscriptBox["\[CapitalPhi]", "x"], "2"], "+", 
       SuperscriptBox[
        SubscriptBox["\[CapitalPhi]", "y"], "2"]}], ")"}], "2"]}], "+", 
   RowBox[{
    RowBox[{"v", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalPhi]", "yy"], "+", 
       SubscriptBox["\[CapitalPhi]", "xy"]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["\[CapitalPhi]", "x"], "+", 
         SubscriptBox["\[CapitalPhi]", "y"]}], ")"}]}], ")"}]}]}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SubscriptBox["\[CapitalPhi]", "xx"], "+", 
       SubscriptBox["\[CapitalPhi]", "xy"]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["\[CapitalPhi]", "x"], "+", 
         SubscriptBox["\[CapitalPhi]", "y"]}], ")"}]}], ")"}]}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.517678221789609*^9, 3.517678272219067*^9}, {
  3.517678302586717*^9, 3.517678358291816*^9}, {3.517679016588017*^9, 
  3.517679050187344*^9}, {3.517679092697423*^9, 3.517679098874775*^9}, {
  3.517679582546852*^9, 3.517679594330811*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]], "+", 
    FractionBox[
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
            RowBox[{
             SuperscriptBox["v", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["\[CapitalPsi]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}]}], "+", 
         
         RowBox[{"\[CapitalPsi]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             SuperscriptBox["v", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "4"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["\[CapitalPsi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], "+", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["\[CapitalPsi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[CapitalPsi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "0", ",", "2"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
               RowBox[{
                SuperscriptBox["\[CapitalPsi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["\[CapitalPsi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["\[CapitalPsi]", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["\[CapitalPsi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "0", ",", "2"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}], "-", 
               RowBox[{
                SuperscriptBox["\[CapitalPsi]", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], 
          " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"v", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalPsi]", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["v", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "0", ",", "1"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalPsi]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}]}], 
      ")"}], "/", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], "2"]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.517678374602029*^9, 3.517679058080712*^9, 
  3.517679105096223*^9, 3.51767959877216*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SubscriptBox["\[CapitalPhi]", "y"], 
       SubscriptBox["\[CapitalPhi]", "x"], 
       SubscriptBox["\[CapitalPhi]", "xy"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[CapitalPhi]", "y"], "2"], "-", 
         SuperscriptBox[
          SubscriptBox["\[CapitalPhi]", "x"], "2"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["\[CapitalPhi]", "xx"], "-", 
         SubscriptBox["\[CapitalPhi]", "yy"]}], ")"}]}]}], ")"}], 
    RowBox[{
     SubscriptBox["\[CapitalPhi]", "t"], "/", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "y"], "2"], "+", 
        SuperscriptBox[
         SubscriptBox["\[CapitalPhi]", "x"], "2"]}], ")"}], "2"]}]}], ",", 
   "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.517679122497156*^9, 3.517679217686469*^9}, {
  3.51767924814872*^9, 3.517679248264218*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalPsi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "-", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             SuperscriptBox["\[CapitalPsi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[CapitalPsi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"], "+", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["\[CapitalPsi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"t", ",", "x", ",", "y"}], "]"}], "2"]}], ")"}], "2"]}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Output",
 CellChangeTimes->{{3.517679196247475*^9, 3.517679248689735*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"v", "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], ",", "y"}], "]"}], "*", 
    RowBox[{"Log", "[", 
     RowBox[{
      SubscriptBox["\[CapitalPhi]", "y"], "+", 
      SubscriptBox["\[CapitalPhi]", "x"]}], "]"}]}], ",", "y"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.517679474507592*^9, 3.51767951123448*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["v", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], 
   RowBox[{"\[DifferentialD]", "y"}]}]}]], "Output",
 CellChangeTimes->{{3.517679504848177*^9, 3.517679511861803*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"v", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], "*", 
    RowBox[{"Log", "[", 
     RowBox[{
      SubscriptBox["\[CapitalPhi]", "y"], "+", 
      SubscriptBox["\[CapitalPhi]", "x"]}], "]"}]}], ",", "y"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.517679530508454*^9, 3.517679554712387*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[CapitalPsi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
     RowBox[{
      SuperscriptBox["\[CapitalPsi]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["v", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"v", "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
      RowBox[{
       SuperscriptBox["\[CapitalPsi]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"t", ",", "x", ",", "y"}], "]"}]}], ")"}]}], 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[CapitalPsi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}], "+", 
    RowBox[{
     SuperscriptBox["\[CapitalPsi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"t", ",", "x", ",", "y"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{3.517679555082397*^9}]
}, Open  ]]
},
WindowSize->{1280, 723},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 3674, 108, 107, "Input"],
Cell[4234, 130, 2044, 60, 145, "Input"],
Cell[6281, 192, 2908, 85, 200, "Input"],
Cell[CellGroupData[{
Cell[9214, 281, 625, 11, 30, "Input"],
Cell[9842, 294, 14532, 431, 237, "Output"]
}, Open  ]],
Cell[24389, 728, 716, 21, 107, "Input"],
Cell[CellGroupData[{
Cell[25130, 753, 648, 14, 30, "Input"],
Cell[25781, 769, 2712, 86, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28530, 860, 664, 17, 88, "Input"],
Cell[29197, 879, 4776, 146, 78, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34010, 1030, 727, 18, 88, "Input"],
Cell[34740, 1050, 4589, 138, 109, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39366, 1193, 1425, 37, 88, "Input"],
Cell[40794, 1232, 16382, 503, 311, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57213, 1740, 9290, 272, 126, "Input"],
Cell[66506, 2014, 8368, 266, 121, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74911, 2285, 1463, 43, 36, "Input"],
Cell[76377, 2330, 13714, 378, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90128, 2713, 1080, 32, 36, "Input"],
Cell[91211, 2747, 3551, 103, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94799, 2855, 437, 13, 30, "Input"],
Cell[95239, 2870, 986, 31, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[96262, 2906, 370, 11, 30, "Input"],
Cell[96635, 2919, 2044, 68, 55, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

